null {20}   5 .STRAIGHT LINES
   6 .JIM DUNSON 12/78
   7 .
  10 clear ;T=0;NT=0;N=0;FC=BC-1;BC=rnd (32)mul 8;S=rnd (20)+10;R=rnd (3);C=R
  20 M=X;gosub 40;gosub 50;N=X;gosub 40;gosub 50;T=T+1;if T=Sfor D=1to 1000;next D;goto 10
  30 goto 20
  40 X=rnd (14)-7;return 
  50 A=Mmul 9;B=Nmul 6;if R=2 C=rnd (3)
  60 line A,B,C;return 
:return ;run 